﻿Public Class Moneda
    Dim _MONCOD, _MODDESC, _MONABRE, _MONACT As String

    Sub New()

    End Sub

    Sub New(ByVal MONCOD As String, ByVal MONDESC As String, ByVal MONABRE As String, ByVal MONACT As String)
        Me._MONCOD = MONCOD
        Me._MODDESC = MONDESC
        Me._MONABRE = MONABRE
        Me._MONACT = MONACT
    End Sub

    Public Property MON_Codigo() As String
        Get
            Return _MONCOD
        End Get
        Set(ByVal value As String)
            _MONCOD = value
        End Set
    End Property

    Public Property MON_Descripcion() As String
        Get
            Return _MODDESC
        End Get
        Set(ByVal value As String)
            _MODDESC = value
        End Set
    End Property

    Public Property MON_Abreviatura() As String
        Get
            Return _MONABRE
        End Get
        Set(ByVal value As String)
            _MONABRE = value
        End Set
    End Property

    Public Property MON_Activo() As String
        Get
            Return _MONACT
        End Get
        Set(ByVal value As String)
            _MONACT = value
        End Set
    End Property
End Class
